home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / getdis1r / form2.frm < prev    next >
Text File  |  1999-07-26  |  17KB  |  588 lines
  1. VERSION 5.00
  2. Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCTL.OCX"
  3. Object = "{EAB22AC0-30C1-11CF-A7EB-0000C05BAE0B}#1.0#0"; "SHDOCVW.DLL"
  4. Object = "{F9043C88-F6F2-101A-A3C9-08002B2F49FB}#1.1#0"; "COMDLG32.OCX"
  5. Begin VB.Form Form2 
  6.    AutoRedraw      =   -1  'True
  7.    BorderStyle     =   1  'Fixed Single
  8.    Caption         =   "WebNet Browser "
  9.    ClientHeight    =   6156
  10.    ClientLeft      =   36
  11.    ClientTop       =   612
  12.    ClientWidth     =   9528
  13.    LinkTopic       =   "Form1"
  14.    MaxButton       =   0   'False
  15.    Picture         =   "Form2.frx":0000
  16.    ScaleHeight     =   513
  17.    ScaleMode       =   0  'User
  18.    ScaleWidth      =   1.033
  19.    Begin SHDocVwCtl.WebBrowser WebBrowser1 
  20.       Height          =   5172
  21.       Left            =   0
  22.       TabIndex        =   10
  23.       Top             =   720
  24.       Width           =   9492
  25.       Object.Height          =   431
  26.       Object.Width           =   791
  27.       AutoSize        =   0
  28.       ViewMode        =   1
  29.       AutoSizePercentage=   0
  30.       AutoArrange     =   -1  'True
  31.       NoClientEdge    =   -1  'True
  32.       AlignLeft       =   0   'False
  33.    End
  34.    Begin VB.CommandButton Command6 
  35.       Caption         =   "Exit"
  36.       Height          =   420
  37.       Left            =   4920
  38.       TabIndex        =   9
  39.       ToolTipText     =   "Options"
  40.       Top             =   0
  41.       Width           =   904
  42.    End
  43.    Begin VB.CommandButton Command5 
  44.       Caption         =   "Home"
  45.       Height          =   420
  46.       Left            =   3960
  47.       TabIndex        =   8
  48.       ToolTipText     =   "Home"
  49.       Top             =   0
  50.       Width           =   904
  51.    End
  52.    Begin VB.CommandButton Command4 
  53.       Caption         =   "Stop"
  54.       Height          =   420
  55.       Left            =   3000
  56.       TabIndex        =   7
  57.       ToolTipText     =   "Stop"
  58.       Top             =   0
  59.       Width           =   904
  60.    End
  61.    Begin VB.CommandButton Command3 
  62.       Caption         =   "Refresh"
  63.       Height          =   420
  64.       Left            =   2040
  65.       TabIndex        =   6
  66.       ToolTipText     =   "Refresh"
  67.       Top             =   0
  68.       Width           =   904
  69.    End
  70.    Begin VB.CommandButton Command2 
  71.       Caption         =   "Forward"
  72.       Height          =   420
  73.       Left            =   1080
  74.       TabIndex        =   5
  75.       ToolTipText     =   "Forward"
  76.       Top             =   0
  77.       Width           =   904
  78.    End
  79.    Begin VB.CommandButton Command1 
  80.       Caption         =   "Back"
  81.       Height          =   420
  82.       Left            =   120
  83.       TabIndex        =   4
  84.       ToolTipText     =   "Back"
  85.       Top             =   0
  86.       Width           =   904
  87.    End
  88.    Begin MSComDlg.CommonDialog CommonDialog1 
  89.       Left            =   4800
  90.       Top             =   3240
  91.       _ExtentX        =   677
  92.       _ExtentY        =   677
  93.       _Version        =   327680
  94.    End
  95.    Begin MSComctlLib.StatusBar StatusBar1 
  96.       Align           =   2  'Align Bottom
  97.       Height          =   252
  98.       Left            =   0
  99.       TabIndex        =   1
  100.       Top             =   5904
  101.       Width           =   9528
  102.       _ExtentX        =   16806
  103.       _ExtentY        =   445
  104.       _Version        =   393216
  105.       BeginProperty Panels {8E3867A5-8586-11D1-B16A-00C0F0283628} 
  106.          NumPanels       =   3
  107.          BeginProperty Panel1 {8E3867AB-8586-11D1-B16A-00C0F0283628} 
  108.             Style           =   6
  109.             Alignment       =   1
  110.             AutoSize        =   2
  111.             Object.Width           =   1461
  112.             MinWidth        =   1469
  113.             TextSave        =   "5/28/99"
  114.             Object.ToolTipText     =   "Date"
  115.          EndProperty
  116.          BeginProperty Panel2 {8E3867AB-8586-11D1-B16A-00C0F0283628} 
  117.             Style           =   5
  118.             Alignment       =   1
  119.             AutoSize        =   2
  120.             Object.Width           =   1461
  121.             MinWidth        =   1469
  122.             TextSave        =   "5:13 PM"
  123.             Object.ToolTipText     =   "Time"
  124.          EndProperty
  125.          BeginProperty Panel3 {8E3867AB-8586-11D1-B16A-00C0F0283628} 
  126.             Alignment       =   1
  127.             AutoSize        =   2
  128.             Object.Width           =   2392
  129.             MinWidth        =   2386
  130.             Text            =   "Browser ⌐1999"
  131.             TextSave        =   "Browser ⌐1999"
  132.             Object.ToolTipText     =   "Copyright Info"
  133.          EndProperty
  134.       EndProperty
  135.    End
  136.    Begin VB.ComboBox Address 
  137.       Height          =   288
  138.       ItemData        =   "Form2.frx":0052
  139.       Left            =   960
  140.       List            =   "Form2.frx":0054
  141.       TabIndex        =   0
  142.       ToolTipText     =   "Web Site Address"
  143.       Top             =   480
  144.       Width           =   4862
  145.    End
  146.    Begin VB.Label Label2 
  147.       BorderStyle     =   1  'Fixed Single
  148.       Height          =   600
  149.       Left            =   5880
  150.       TabIndex        =   3
  151.       ToolTipText     =   "Link to what page"
  152.       Top             =   0
  153.       Width           =   3612
  154.    End
  155.    Begin VB.Label Label1 
  156.       Caption         =   "Address:"
  157.       BeginProperty Font 
  158.          Name            =   "MS Sans Serif"
  159.          Size            =   9.6
  160.          Charset         =   0
  161.          Weight          =   400
  162.          Underline       =   0   'False
  163.          Italic          =   0   'False
  164.          Strikethrough   =   0   'False
  165.       EndProperty
  166.       Height          =   252
  167.       Left            =   120
  168.       TabIndex        =   2
  169.       Top             =   480
  170.       Width           =   852
  171.    End
  172.    Begin VB.Menu File 
  173.       Caption         =   "&File"
  174.       NegotiatePosition=   1  'Left
  175.       Begin VB.Menu Exit 
  176.          Caption         =   "Exit"
  177.          Shortcut        =   ^Q
  178.       End
  179.    End
  180.    Begin VB.Menu Extra 
  181.       Caption         =   "&Extra's"
  182.       Enabled         =   0   'False
  183.       NegotiatePosition=   1  'Left
  184.       Begin VB.Menu link 
  185.          Caption         =   "Links"
  186.          Begin VB.Menu Telery 
  187.             Caption         =   "Telery"
  188.          End
  189.          Begin VB.Menu line 
  190.             Caption         =   "-"
  191.          End
  192.          Begin VB.Menu searcheng 
  193.             Caption         =   "Search Engine's"
  194.             Begin VB.Menu vista 
  195.                Caption         =   "Altavista"
  196.             End
  197.             Begin VB.Menu Excite 
  198.                Caption         =   "Excite"
  199.             End
  200.             Begin VB.Menu bot 
  201.                Caption         =   "HotBot"
  202.             End
  203.             Begin VB.Menu Lycos 
  204.                Caption         =   "Lycos"
  205.             End
  206.             Begin VB.Menu Magellan 
  207.                Caption         =   "Magellan"
  208.             End
  209.             Begin VB.Menu search 
  210.                Caption         =   "search.com"
  211.             End
  212.             Begin VB.Menu crawl 
  213.                Caption         =   "WebCrawler"
  214.             End
  215.             Begin VB.Menu gans 
  216.                Caption         =   "Yahooligans"
  217.             End
  218.             Begin VB.Menu Yahoo 
  219.                Caption         =   "Yahoo"
  220.             End
  221.          End
  222.          Begin VB.Menu dwnload 
  223.             Caption         =   "Download"
  224.             Begin VB.Menu media 
  225.                Caption         =   "Macromedia"
  226.             End
  227.             Begin VB.Menu download 
  228.                Caption         =   "download.com"
  229.             End
  230.             Begin VB.Menu shareware 
  231.                Caption         =   "shareware.com"
  232.             End
  233.             Begin VB.Menu window 
  234.                Caption         =   "Windows95.com"
  235.             End
  236.          End
  237.       End
  238.       Begin VB.Menu Mail 
  239.          Caption         =   "Mail"
  240.          Begin VB.Menu SendMail 
  241.             Caption         =   "Send Mail"
  242.             Shortcut        =   ^M
  243.          End
  244.       End
  245.       Begin VB.Menu line2 
  246.          Caption         =   "-"
  247.       End
  248.       Begin VB.Menu New 
  249.          Caption         =   "New Browser"
  250.          Shortcut